home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
os2
/
pmgb202.zip
/
TEST.PMG
< prev
Wrap
Text File
|
1992-09-23
|
1KB
|
33 lines
/* Sample (test) startup macro */
/* For example: start pmglobe2 macro test */
/* Get the information we need, and set a new title */
'extract version versionb'
'set title PMGlobe -' version '('versionb'-bit)'
/* Set up some sample timezones; summertime assumed same as local */
bst=offset( 0) /* argument is base GMT offset, in hours */
est=offset(-5)
pst=offset(-8)
jst=offset(+9)
/* Mark some chosen cities, with a couple of clocks */
'set font default'
"mark 51o30 0 clock" bst "label London"
"mark 40.8 -74.0 clock" est "label New York"
"mark 37.8 -122.4 x center label San Francisco"
"mark 35.7 139.8 clock" jst "label Tokyo"
"mark -33.7 151.3 label Sydney"
exit
/* OFFSET(seconds) -- convert winter GMT offset to current */
/* Answer is returned in seconds */
offset: procedure
arg hours . /* (Unchecked) */
'extract dayoffset' /* get local summertime offset */
if dayoffset='UNKNOWN' then dayoffset=0 /* just in case */
return hours*3600+dayoffset /* convert to seconds and adjust */